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Well here we are at the end o-f another year for the newsletter 

One of the common questions we hear is "what will you be doing 
and where will you be next year? Well we’ll be in the same place 
and doing just about the same things. 

Geo*Grafix will be putting out the newsletter for 1984 but we 

1 ^ still be handling the maintenance, APF programs , periperals, 
and just about anything else you can think of. Still’ no word 
by the way on the FI— 100 replacements. 

Geofcgraf ix will do a fine job For 1984 and we look foreward to 
their first issue just like you do. 

Its really amazing how you members have grown during this 
last year. Fish out some of the old NICC.’s and read some of the 
questions you were sending out at the time and compare them to 
the , questions in thi s ^ months ^ issue ^ - see what I mean. 

0 show OLxr- apprec i at i on to 1 

of the? MEMBERS I ha*vee 

written ea LUNAR I ANDER program 

which is in machine language and I think is a good one, so it you 
want it all you have to do is pay postage and handling of 2.95 for 
it or if you send in your 1984 membership dues before Dec 31,1983 
it is free. So hurry and get that 
memb er sh i 30 -F ee i n « 


Here t=j -scome- 

h aive? been son 
you can got t 
co-F printing, 


other things that 
"t in h v r members and 
heenm just -f or the? cos 

s hi ppi ng SU hand 1 i ng . 


t 


1. From Louis Bolduc, all you need to know about the DOS, 
(DISC OPERATING SYSTEM) just $2.00 

2. From Thomas Fairbairn, instructions for modifing the IM-1 


for use with a monitor.... just $2.00 


3. From Thomas Fairbairn, a very detailed explanation for the 
use of the APF Assemblier and Editor programs (appx 30 pages) 
just $7.00 


4. Also for those out there that are serious about learning how 
the IM-1 does its thing here are the orginal MACHINE LANGUAGE 
ASSEMBLY listing for only $19.95 

You will notice that the issue is a lot bigger than normal, well 
for those that missed it we are combining the Nov & Dec issues 
because of postal problems. You will see that the pages 11 - 20 
are the Dec issue and they are all programs, just for your Christ- 
mas gift 
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FROM LOUIS S*=»BO 

I have a question about choosing a disc drive for my computer. 
Can the FI— 1-00 work with a SSXDD disc? I am not worried about 
unused capacity, but whether it can store and retrive data. 

A computer I am building is going to be formatted for double density 
and I would like to get a disc now and use it with the APF until 
the other is finished. 

ANSWER!! If the drive you want to use is compatable with the 
3HU6ART 400L drive it will work. This is a very common type of 
drive and most of the 40 track 5 1/4 inch drives are compatable 

with it Be sure to check with the dealer on this or check 

the schematics yourself for the compatability 

GOOD LUCfc ON YOUR COMPUTER!!!! Let us know how it turns out. 
■"h-'t ' : 'h '-is################# 

F r R DM RONNIE CARTHAM 

I would like to know if yo have any info as to how to access 
the GRAPHIC portion of the GEMINI 10-;: printer? can you help? 

ANSWER: Here are 2 simple programs that demonstrate now to use 
the Block & Hires ability of the GEMINI 10X orinter. 

1 REM HERE IS A SIMPLE PROGRAM TO PRINT BLOCK CHARACTERS ON THE 

2 REM GEMINI 10X PRINTER 

5 PR IN 1=1 : REM TURN ON PRINTER 

10 PRINT CHR$<27> ; "A" : CHRt (6) : REM THIS SETS LINE SPACING TO 6/72 

15 FOR K = 1 TO 3 

16 PRINT CHR$C27> ;"B"sCHR*(K> : REM THIS SETS THE 'CPI' 

17 RESTORE 

IS PRINT CMR$ (27) ; " “ : rem this sets the 8th bit in the printer 

19 REM BECAUSE THE IM-1 CAN ONLY SEND 7 BITS 

20 FOR J = 1 TO 9: FOR I = 1 TO 12.- READ A 
45 IF A > 127 THEN A = A - £28 

50 PRINT CHRi ( A) ; : NEXT I : PRINT : NEXT J 

90 DATA 224,224,224,224,224,224,224,224,224,245,224,224 

91 DATA 224, 224, 224, 224', 224', 224, 224', 224', 252', 245, 224', 224 

92 DATA 224; 224, 224; 245,224, 224, 224,252,239,245,224,224 

93 DATA 224', 224, 252, 245, 224'. 224', 252', 23?', 239', 245, 224, 224 

94 DATA 224; 252,239; 245, 224. 252, 239 ; 23? , 239 , 245 , 224 , 224 

95 DATA 252', 239', 239, 245'. 252'. 239'. 239. 239, 239, 245, 224, 224 

96 DA TA 241 ; 241 ; 241, 249 i 24 1 ; 24 1 , 24 1,241, 24 1 , 249 , 224 , 224 

97 DATA 239, 175,239, 175,239, 175.239, 175', 239', 1 75 '. 239 ', 25 1 

98 DATA 253 ; 239 i 239, 239 ; 239, 239, 239, 239; 239; 239, 251 i 224 
9? PRINT: NEXT K: PRINT' CHR£(27) : "3"s REM CLEAR' PRINTER 
100 PRINT=0: END 


1 REM THIS PROGRAM WORKS IN HIRES MODE ON THE GEMINI 10X 
5 PRINTS: RESTORE: PRINT CHR$ (27) ! "3" : REM CLEAR PRINTER 
20 PRINT CHR*C27> ; " 1 " : REM SET PRINTER TO 7/72 LINE SPACE 
30 FOR CHAR = 1 TO 5: FOR LINE - 1 TO 2 

40 PRINT CHR*(27> ; "K";CHR* <114) ;CHR$<0) : REM SET PRINTER TO 60 

41 REM DOTS PER INCH 

50 FOR SPACE =1 TO 100: PRINT CHRS<0>;’: NEXT SPACE 
60 FOR COLM = 1 TO 14: READ C: IF C > 127 THEN C = C-128 
70 PRINT CHR$ (C) ; : NEXT COLM: PRINT : NEXT LINE : RESTORE 
75 NEXT CHAR 

30 DATA 14,16,34,64,12,12,0,0,12,12,64,34,16,14 
90 DATA 96, 16, 104,63, 34, 13, 13'. 18', 18'. 34, 68, 114, 16,96 
100 PRINT CHR$(27> ; "3": PRINT' : PRINT =0 ' 

120 REM CHANGE LINE 40 TO PRINT CHRS (27) ; "L"; CHR$ (1 14) ; CHR* (0> 
122 REM TO GET DIFFERENT RESULTS 

These are 2 very simple programs which you can expand to do more 
difficult things. To get more information write to the STAR 
people and ask for the GEMINI USERS MANUAL 


MAIIMT BOX MAINT BOX 

Here is a list of the most common Hardware problems & fixes... 

1. Only trash on the screen after turning unit on. 

a. Usually due to bad power supply (broken wire in the connector 
on back of MPA-10 or bad voltage regulator (IC1 OR IC2) in the tape 
unit, or bad BASIC INTERPRETER! 

2. After hitting EN key only trash on screen. 

a. This is usually a bad memory chip in the MPA-10 and I 
usually find it by substitution. It can also be a bad ’j’ conn., 
or it can also be the same as l.a. above. 

3. The tape unit will not load or save. 

a. Most common failure is IC4 (4053) on the tape unit. Another 
failure is the multy contaL switch on the AUDIO RECORD button, 
this switch will became sticky and will not open fully. It needs 
to be cleaned. 
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FROM SCOTT RICH 

I called you about Wednesday and asked you about machine 
language. You told me to look up a bookstore called B DALTON, 
well, we do have a B DALTON bookstore. .. but ... they don’t have 
"6800 ASSEME<LY LANGUAGE" the lady told me they have a number of 
assembly language books for the Commodore Computers and she said 
they have 6500 assembly language 8086 assembly language 

8080 assembly language Could you write back and tell me which one 
of the books can I get? If neither of the books will work, will 
you buy one there and send it to me? 

ANSWER.... No Scott, those other books are for an entirely 
different chip and won’t hely you working on your IM-1. Most 
bookstores are happy to order for their customers but if your 
local outlet doesn't do that then here is the address of the 

S ubl i sher . 

SBORNE & ASSOCIATES , P.0. BOX 2036 , BERKELEY , CA. 94702 
Ask ror 6800 Assembly language programmi ng , by Lance A 
Leventhol . 

What other functions does the "ESC" key have (do)?? 

ANSWER. . . The "ESC" key can be used with a printer or a modem 
to generate the character CHR$<27)'. This is a special code used 
to control the functions of the printer. 

Is there a monitor I can buy? 

ANSWER.... AF'F had a monitor at one time, but there don’t seem 
to be any left. Most folks have been satisfied to connect their 
computer to a standard television set. We don’t carry any monitors 
through the club. 

from we l_ost the name 

I have a Gorilla Banana printer with a data length of 1 start 

bit, 8 data bits (fixed amount), no parity and a 1 or more stop bits. 

The APF SI-232 uses a 7 bit sata word, even parity and 2 stop 

bi'ts, is there any way I can modify one so they could be used 

together? 

ANSWER. . First off you need to be sure that the printer cannot 
changed to 7 bit. At this moment the only thing you could do is 
write a machine language program to use the printer. 


Vr ofii " name ' ’ i'ost’ ! ’ 1 ! ’ 5 ' 5 ! ! ! s > t s i ) n ! j j ) ! j i » j » 

Did you ever receive an order_from the veterans admi ni stration 
medical center here in ashville. ihe hospital has a couple of 
IM-l’s used in nursing education and therapy departments. The 
computers at the VAMC are used by the patients as part of their 
therapy programs. I teach them how to program. I am a volunteer 
there volunteering my services thru the disabled American Veterans. 
Do possibly have any software available that would be usefus in 
this program? 


Right now there aren’t any programs I know of that would 
work in your favor specifically for the rehabilitation of he veterans 
or the nurses except the basic tutor. But there might be some 
CLUBMEMBERS out there that could help you by writing some programs 
for the Veterans Center. If there ever was a worthy cause then 
it. GOOD LUCK 


MORGAN 


My IM— 1 package (RS-323, FI— 100, R8K et.) has been a real 
pleasure. It works with an eiderlt Baudot teletype for a printer 
and receives ASCII from, a receiver. It plays chess and backgammon 

(chess translated from an 8080 based machine Interact) 

And until last week, it performed all basic chores. It no 
longer likes strings. Unles, of course, I change to another BASIC 
catraqe. 


Nice thing about having TWO IMsl’s is the redundancy factor 
beats the hell out of sending a malfunctioning machine for service. 

In any event, my VERY elderly interpreter works in both machines. 

The question is : since only ONE routine is out in the BASIC 

cart rage then either the 4K or the BK ROM chip is bad or 

(unlikely) a circuit board trace is open\sharted . In the latter 
case my FUNCTIQNNROM tape check shall have shown "tilt". 

QUESTION: Do you sell ROM chips separately? 

QUESTION". How much does it cost to have my cartrage serviced 
assuming ONE bad ROM? 

Mote: ALL my computer equipment runs on 98 volts AC and 
massive "spike" protection. It is entirely removed from house wiring 
when not in use — and unplugged from the communi cati on receiver, 
ANSWER... Yes we do have the chips and they are $14.95 each with 
no guarantee. If you send it to us it is $29.95 +$2.00 p&o to fix. 


to us 


it is 


& &&&&&&&&&& S<8<S<S<8<S<8< 
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FROM GUY M I I 1 EER 

As you have been requesting more input -from the clubmembers, 
here is something that should nave been included i n my answer to 
yoor survey. Some of us out here are not computer experts, but 
bought the IM=1 and jouned clubs to learn BASIC and as much 
as we are capable of learning. I feel that programs should be 
documented, with operating instructions where needed annd REM 
statements ’ to give us dummies an idea of what iis doing what in 
the program structure. While on the subject, I will quallify my 
f ey\switch cleaning tip. I specified freon TF as it is an 
electronic degreaser \sol vent , made for the later TV tuners with 
plastic parts. Some of the tuner &. pot cleaners are made with 
petrol i urn distillates which will melt plastics, and oil which is 
a residual that will collect dust and make it almost impossible 
to clean this type switch short of dissassembly which is a chore 
on this type keyboard. 


FROM DON SCHMIDT 

Howdee Jim! Hi there Milly! Well this looks like the last 
time I may be writting to you, but I have some information I'd 
like to share with you and fellow clubmembers. 

The enclosed program listing is yet another solution to the 
probl enAquest i on posed by Bill Bowman in the Sept. '83 issue 
of the newsletter (pg2> , comcerning the "loss" of data in diminsoned 
variables. Your sosutiohs are certainly workable for some, but not 
all IM-1 owners : 1) I don't have a disc drive unit; 2) 

there may be problems trying to read back from tape; 3) limited 
amount of space on low core. 

I have a solution which provides for use of all the space from the 
end of the program to the end of memory, regardless of how much 
memory a given machine has on it. Whatever you have is what you get. 
You correctly painted out that arrays are "shifted" in memory as 
program statements are added and\or deleted. To re-establish 
array pointers in the pointer table, it is necessary to "RUN" the 
program following any changes before it can be saved. Also, when 
a program following any changes before it can be saved. Thus "RUN" 
only clears the variables in the machine while the program is still 
resident (no power off or "reset"). If power is turned off or the 
"reset" button hit, and program reloaded, all simple variables in 
the progam will be zero. 

The pointers to the variables used by any program are not 
established until the initial "run" of the program and at the time 
the variable label is encountered. This is no real problem so long 
as the variable labels do not change with each invocation of the 
program. Hardly! ! So much for the minor details. On to the 
important part. What is critical if a program is trying to use 
arrays to save data for reuse by the by the program is certain 
SYSTEM VARIABLE POINTERS . These pointers must be saved by tn 
program before a "csave" and restored after a "cload" if* it is to 
work at all. See lines S00-815 and 900-915. Also, the program 
required 2 simple variables to be able to execute following a 
"cload" and "goto 75". These simple variables are saved in a small 
single area called "VS" and restored in the subroutine beginning 
at S00. See also lines 125 and 155. 

The enclosed "VIDEO-GRAM", is based on the "letter program” 
submitted by Guy Miller of California- some months ago. It was 
undertaken solely in an attempt to solve the above mentioned problem 

and it does and intended to be taylored by the individual 

user. The "printer setup" routine is a dummy to be filled in by 
users with printers, the "scrol 1 \correcti on " routine has a minor bug. 
in that sometimes it scrolls one line too many. The program function 
is to allow two or more APF owners to communicate, VIA tape and 
their computers WITH EACH OTHER AT THE SAME TIME SWAPPING F'RGMS , 
notes or whatever. 

As an example of its use I offer the following: "VIDEO-GRAM" 
is first copied to a single small tape, t.o be used as a "stub" . 
Programs to be passed to another are loaded on a tape, starting at 20 
the counter . When done, tape is rewound to 0 and removed. Next 
"stub" is loaded,, RUN, write letter. "Stub" may be "csaved" at 
this point if desired!. Next, remove stub tape and insert re: wound 
tape to be sent. Csave to tape just inserted.' You now have a 
letter, with programs to send recipient, who can do the same thing. 

PS IF CURSOR APPEARS BUT NO "OK" AFTER CLOAD, 
type goto 75 anyway. .... 

FROM EDITOR. . . From the sounds of the above DON has put a lot 
of research into the information. You will find the program he 
refers to listed in this newsletter. THPiMKS F^OP: THE 
I SNIP'D DOM 
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FROM LARRY GRANIN I S 
I have a question, the answer to which you might include in the 
newsletter; Lewis Bui doc, in his article, and Hex mart Software, 
in their ad, both allude to a 34 track format for the dixc drive; 
however, in my FI -100 instruction book it quite clearly states 
on page 5 , "The Imagination Machine formats diskettes as follows: 

36 tracks are formatted. Each with 3 sectors. Each sector contains 
256 bytes of data. Total storage of a diskette is therefore 73,72S 
bytes." I understand from the Bui doc articles that Track 0, 
sectors 1 and 2 are set aside for GAT and Directory, but this is 
not the same as two whole tracks with 4K of storage! ! What is 
this discrepancy? 

ANSWER... Sorry to say it but the FI-100 book is wrong. There 
are only 34 <0 to 33) tracks set up for use by the IM— 1 with te 
DOS program 

Perhaps some of the members might like to take advantage o 
a seemingly overlooked paragraph in the Technical Referance Manual 
in regard to cursor control . Many programs by the members which 
yoo have printed, and yourself, on page 2 of the February 7 S3 issue 
program the fallowing routine (A= the position and can be any 
ber from 512 to 1023 inclusive.) 

10 POKE 40960, int (A/256) 

20 POKE 40961, A-int (A/256) *256 

This is apparently quite a common for many of the AFF programs 
call for he same routine. 

However, on page 1 of the chapter VI of the Reference 
Manual in the paragraph beginning "Line 25—" it is explained that 
Into 40961 we have to POKE the remainder of dividing 256 into 
CV or A, in our example above. It says, "The POKE instructions 
AUTOMATICLY does this". Therefore, instead of programming all 
of the mathematics in line 20 above, taking up unnecessary memory, 
one only has to program: 20 POKE 40961, A 

Line 10 remains as is. Hope that might be of interest. 

1 7 d like to be counted in the Lonely Computers group. I have 
an IM-1, BB-1, SK exp., SI-232, FI-100, and single drive. 

I have an employment service for programmers and analysts from 
mainframes to micros. 

E<y the way, I have the Product Manusl for the MPI-B5.L 
driveusad by APF and it states on page 2—3, "The motor should 
be turned off if no activity is required... after 10 revolutions 
of the diskette. A minimum of 1.0 second is required before performing 
a read or write after a MOTOR ON command is transmitted to the 
device." So you may want to program a lsec. delay loop: 

10 P0KE261 12, 4FORX=0tol20: NEXT 
Thanks for the i n T o I — ARRY 
y.7.7.7.7.7.%7.y.7.7.y.7.7,7.7.7.y.7.7.7.7.7.7.7.y.7.7.7.7.7.7.y.7.7.7.7.7.7.y.y.7.7.7.7.7.7.7.7.7.7.7.7.7.7.7//.7.y.7.7.7.7//. 

Anyone wishing to contact Larry can reach him at: 

1311 E. Washington PI. #J-1 
Santa Ana, Ca, 92701 

FROM W I LL I AM HOM 

I would like to ask you about your assembly listings offered in the 
Sept issue of the newsletter. I presume that the more than 50 page 
listing is of the BASIC monitor, but I would like to know wheather 
every line is commented and wheather every or most referenced locations 
are labeled with mnemonic names. 

ANSWER.. The listings are the orginal ASSEMBLY listings from 
APF and they have several comments which give reasonably good 
descripi tions of the program 
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. : SAVE AREA: AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA 


10 : 


VIDEO-GRAM 


1 

20 

25 

26 : 

30 RS= KEYS (0) : 
RETURN 


(VER 1.3) 

SY DON SCHMIDT 9-20-83 
GOTO 75 

IF R$=” " THEN 30 


36 

40 


: CHANGE \ TO , 

BL= LEN (B$) 

FOR B=0 TO BL 
IF B$(B)="\" THEN B$(B)=" 
NEXT : RETURN 


85 
90 
95 
1 00 
105 
110 
115 
120 

125 

126 
130 

135 

136 

140 

141 

142 


IF R$=" " THEN 115: REM STRT W/ RUN 

PRINT "HIT ’ F ,? FOR PRINTER OR 'V s FOR SCREEN VIEWING.": GOSUB 30 
IF R$="P" THEN GOSUB 500: REM SET-UP FOR PRINTER. 

GOTO 160 

: GET HEADING DATA 

POKE 8193,60 

INPUT "WI-IAT IS THE DATE" , D$: PRINT 

INPUT "HOW MANY LINES IN ADDRESS" , H: VS (1 ) =H 

‘FOR HL=1 TO H: PRINT : "LINE#" : HL: : INPUT T$(HL,0) 

NEXT : PRINT NULLS 

'INPUT "SALUTAION" , S$: PRINT NULLS 


GET LETTER 

145 L=L+1:B$=NULL$: INPUT B$: IF B $="7.7.7." 
150 GOSUB 40: L$ (L, 0) =B$: GOTO 145 

155 L=L-1 : VS (2) =L ' 

156 


THEN 155 


1 60 

PRINT 

"EMPRESS 

’ R* TO 

REVIEW" 

161 

PRINT 

"PRESS ’ 3 

■’ TO SCROLL" 

165 

GOSUB 

30 



200 

POKE 40960,2: POKE 40961,0: CALL : 

205 

PRINT 

SPC (31) 



21® 

PRINT 

TAB (16) 

; " DON SCHMIDT” 

215 

PRINT 

TAB (16) 

; "19 SCHOOL HSE RD 1 

220 

PRINT 

TAB (16) 

; "NEPTUNE N.J." 

225 

PRINT 

TAB (16) 

■ "07753" 

230 

PRINT 

SPC (31) 

: PRINT 

TAB (16) = I 

240 

FOR HL 

=1 TO H: 

PRINT T $ ( HL , 0 ) 

245 

NEXT : 

PRINT SPC (31) 


250 

PRINT 

S$: PRINT 

SPC ( 

31) 

260 

‘for x= 

1 TO 700: 

NEXT : 

POKE 40960. 

265 

PRINT 

SPC (31) 

: x =2 


270 

FOR HL 

= 1 TO L 



275 

IF L$ (HL, 0) ="# " 

THEN 

PRINT SPC 

230 

IF R$= 

"S” THEN 

GOSUB 

400: GOTO 2' 


Z: POKE 40961,0: CALL 17046 


=X+1 


285 PRINT L$ <HL, 0) 

290 X = X + 1 : IF LEN (L$ (HL, 0) ) =>31 THEN 
300 IF X< = 1 4 THEM 320 
305 PRINT "HIT ANY KEY FOR MORE" 

310 M$= KEYS (0): IF M$="" THEM 310 

315 CALL 17046s POKE 40960,2: POKE 40961, 32: X=2 

320 NEXT : FOR T=1 TO 700: ' NEXT 

321 INPUT "TO CONT. LETTER HIT T’, RETKY" , R$. 
IF R$="C" THEN GOTO 145 


335 
340 
350 
400 
4 1 0 
420 
430 


PRINT 

PRINT 

PRINT 

PRINT 

STOP 

PRINT 

INPUT 


_ (31): PRINT SPC 
TAB (15) ; "REGARDS ' 


(31 ) 


SPC (31): PRINT SPC (31) 
TAB (15) s "DON SCHMIDT" 


LINE#" ; HL; 1 . 

TO CHANGE' LINE HIT 
IF R$< >"C" THEN 450 
B$=NULL$: INPUT B$: GOSUB 4 
PRINT SPC (31 ) : X=X+1 
R$="3" : RETURN 


:L$(HL,0)=B$ 
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799 

800 
S05 
810 
S 1 5 
820 
S25 
830 
835 
840 
850 
855 
900 
905 
910 
915 
920 
930 

935 

936 
940 
945 
950 
955 
960 

999 

1000 


: RQUT INE TO SET-UP FOR PRINTER COMMANDS 

Hh. I URN 


STOP 

: RE-SET SYS PTRS 

POKE 40973, PEEK (42003) : POKE 40974 
POKE 40984 , PEEK (42005): POKE 40985 
POKE 41007, PEEK (42007): POKE 41008 
: RE-ESTAB DIM PTRS 

H=VS ( i^' L=VS^2^ SIMPLE VAR I SAV 

DIM R$(l) ,M$tl) ,D$(9) ,S$(20) 

DIM B$(63) , NULL$ (63) , L$ (40,64) , T$(4,20) 
RETURN 


PEEK 

PEEK- 

PEEK 


(42004) 

(42006) 

(42008) 


: SAVE SYS PTRS 

POKE 42003, PEEK (40973) : POKE 42004, PEEK (4C974) 
-PEEK (40984) : POKE 42006', PEEK (40985) 
pppv (41007) : POKE 42008; PEEK (41008) 


POKE 42005, 

POKE 42007, PEEK 


CALL 17046 
PRINT "#=* 

PRINT 
PRINT 
PRINT- 
PRINT 
PRINT 
PRINT- 
STOP 

CALL 34040: CALL 34138: CALL 34061 


PRINT 

=* VIDEO - GRAM *=*" 
FROM DON SCHMIDT " D$ 

TO VIEW MESSAGE, ON * OK 7 TYPE 
ENTER 7 P 7 TO PROMPT. LETTER 
TO MAKE NEW LETTER 7 RUN' AND 
TO SAVE OR MAKE COPY OF THIS 
TYPE 7 GOTQ900 7 . PGM WITH NEW 


: PRINT 

7 GOTO 75 7 , RET KEY." 

WILL BE DISPLAYED ON SCREEN. " 
FOLLOW PROMPT WITH RET-KEY. " 
PGM, DEPRESS PLAY/SAVE AND" 
LETTER WILL BE SAVED ON TAPE. 


APF IM— 1 computer for sale 
Includes: PgmNtech ref. manual 
Basic Tutor manual and tapes 
Newsletters from 7 82 till Dec 
S3, tape with programs from 
newsletters, Space Dist., 

3 homel business tapes, & Music 
Composer tape. Make an’ofer. 
Send all bids to: Brian Aemis- 
seg g er , Rt . 2 , Bo:-: 73 , 

Foristell, Mo., 6334S. 

Complete APF system (all or 
part), every expansion, manual 
and piece of software made for 
the APF in one package & guar — 
ran teed to work. Best offer by 
o0 days after ad published. 

Mike Russell, P.O. BOX 208465 
Pullman, WA, (504-878-1714 

24K memory expansion kit! Also 
Building Blocks 8<Disc Intet — 
face cartrages with 90 day 
warranty! Send self-addressed 
envelope for more info to: 

Glenn Jones 
419 S. 105 E PI . , 

Tulsa, OK 74128 


WANT ADSS 

I would like a tested file 
program for cassette system, 
also a 200 unit apartment 
management program including: 
heat, complaints, and problem 
tenants. The tested file pgm. 
should include a date variable. 
Contact Emmet Jenkins. 

For sale: IM-1 computer 16K 
RAM St basic tutor, ProgNTech 
manual, Secrets, Bugger, 

Casy, Starship, Primer, 

Humbus II, Manuals, int-1 
kit, — $250. or best COD 
B. Kuczek, R4b46 1 , 

L.L., N.M. 87031 


FOR SALE: 32K APF IM-1 
computer factory pack. Bought 
1 1\2 yrs ago and still in 
excellent condition. Seller 
needs money for college. Asking 
$200. or best offer. 

Call 608-362-5900 
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40 

50 


REM ’MEMORY GAME BY DANNY LOUIE’ 
POKE 24578,38: CALL 17046 
POKE 40960,2: POKE 40961,0 


90 

95 

100 

105 

110 

115 

120 

125 

130 


140 
145 
150 
155 
160 
1 63 
170 
175 
180 
190 
200 
205 
210 
215 
220 
250 
255 
260 
265 
270 
230 
300 
305 


320 

330 

350 

360 

365 

370 

375 

330 

400 

410 

420 

425 


PRINT 

REM 

REM 

REM 

PRINT 1 
PRINT 
PRINT 1 
PRINT 
PRINT 
PRINT 
PRINT 


565 

570 

580 


TAB' (6) ; "M EMORY GAME 
*** YOU' DON’T HAVE TO TYPE IN THE INSTRUCTIONS. 

*#* BUT IT WILL MAKE THE PROGRAM LOOK NICER. 

*** A COLOR TV IS RECOMMENDED, BUT A B/W WORKS TOO. 

'IN THIS GAME, THE COMPUTER WILL RANDOMLY FLASH ON THE SCREEN 
’ONE OF THE NINE COLOR BOXES AND ITS NUMBER, ONE AT A TIME. YOU " 
'YOU THEN TRY TO REPEAT THE PAT- TERN BY PRESSING THE CORRECT 
"KEY ON THE LEFT JOYSTICK. IF YOU ARE CORRECT, THE COMPUTER 

"WILL FLASH THE BOX AGAIN AND ADD ANOTHER BOX. AS THE LENGTH 

"OF THE BGXES INCREASE, YOU WILL FIND THAT IT WILL BECOME MORE 


< PRESS RETURN > 


4096 1 , 0 


DIFFICULT TO REMEMBER 
KEYS (0)="" THEN 120 
CALL 17046: POKE 40960,2: POK! 

PRINT TAB (6) ; "M E M 0 R Y GAME 
"s REM 32 SPACES. 

"WHEN YOU HAVE CHOSEN THE WRONG 
"TO PLAY AGAIN. HOWEVER, IF YOU 
"PATTERN GIVEN BY THE COMPUTER 
"FEATED, YOU GET A ’EXTRA LIFE.’ _ 

"GET ANOTHER CHANCE TO FINISH UP THE PATTERN. YOU WIN WHEN YOU 
"HAVE COMPLETED ALL 40 BOXES 


PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 
PRINT 

IF KEYS (0)="" THEN 170 
CALL 17046: POKE 40960,2: POKE 40961,0 
PRINT TAB (6) ; "M E M 0 R Y GAME 
REM *** RED BOX *** 

FOR 1=867 TO 872: POKE 1,179: NEXT 
FOR 1=905 TO 969 STEP 32: POKE 1,191: NEXT 
FOR 1=1000 TO 995 STEP -1: POKE 1,188: NEXT 
FOR 1=962 TO 39S STEP -32: POKE 1,191: NEXT 
GOSUB 700 

REM *** BLUE BOX *** 

FOR 1=877 TO 882: POKE 1,163: NEXT 
FOR 1=915 TO 979 STEP 32: POKE 1,175: NEXT 
FOR 1=1010 TO 1005 STEP -1: POKE 1,172: NEXT 
FOR 1=972 TO 908 STEP -32: POKE I, 175: NEXT 
GOSUB 750 

REM *** AQUA BOX *** 

FOR 1=887 TO 392: POKE 1,211: NEXT 
FOR 1=925 TO 989 STEP 32: POKE 1,223: NEXT 
FOR 1=1020 TO 1015 STEP -1: POKE' 1,220: NEXT 
FOR 1=982 TO 918 STEP -32: POKE 1,223: NEXT 
GOSUB 300 

REM *** YELLOW BOX *** 

FOR 1=707 TO 712: POKE 1,147: NEXT 
FOR 1=745 TO 309 STEP 32: POKE 1,159: NEXT 

FOR 1=840 TO 335 STEP -1: POKE 1,156: NEXT 

FOR 1=802 TO 733 STEP -32: POKE 1,159: NEXT 
GOSUB 350 

REM *## GREEN BOX *** 

FOR 1=717 TO 722: POKE 1,131: NEXT 
FOR 1=755 TO S19 STEP 32: POKE 1,143: NEXT 

FOR 1=850 TO 345 STEP -1: POKE 1,140: NEXT 

FOR 1=812 TO 73S STEP -32: POKE 1,143: NEXT 
GOSUB 900 

REM *#* WHITE BOX *** 

FOR 1=727 TO 7.32: POKE 1,195: NEXT 
FOR 1=765 TO 329 STEP 32: POKE 1,207: NEXT 

FOR 1=860 TO 355 STEP -1: POKE 1,204: NEXT 

FOR 1=822 TO 758 STEP -32: POKE 1,207: NEXT 
GOSUB 950 

REM *** PURPLE BOX *** 

FOR 1=547 TO 552: POKE 1,227: NEXT 
FOR 1=585 TO 649 STEP 32: POKE 1,239: NEXT 

FDR 1=680 TO 675 STEP -1: POKE 1,236: NEXT 

FOR 1=642 TO 578 STEP -32: POKE 1,239: NEXT 
GOSUB 1000 

REM **# AQUA BOX *** 

FOR 1=557 TO 562: POKE 1,211: NEXT 
FOR 1=595 TO 659 STEP 32: POKE 1,223: NEXT 

FOR 1=690 TO 685 STEP -1: POKE 1,220: NEXT 

FOR 1=652 TO 5SS STEP -32: POKE I, 22c: NEXT 
GOSUB 1050 

REM **# ORANGE BOX *** 


PRINT " 

BOX, YOU LOSE AND WILL BE ASKED 
HAVE SUCCESSFULLY REPEATED THE 
AT 15 BOXES BEFORE YOU ARE DE- 
WITH THIS HELPFUL FEATURE, YOU 


< PRESS RETURN?- 
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650 

700 

705 

710 

715 

720 

725 

730 

740 

750 

755 

760 

765 

770 

775 

780 

7 Q/7; 
800 
805 
810 
815 
820 


840 

850 

355 

860 

865 

870 

875 

880 

890 

900 

905 

910 


FOR 1=567 TO 572: POKE 1,243: NEXT 
FOR 1=605 TO 669 STEP 32i POKE 1,255: NEXT 
FOR 1=700 TO 695 STEP -1: POKE I ‘,252: NEXT 
FOR 1=662 TO 598 STEP -32: POKE 1,255: NEXT 
GOSUB 1100 

MUSIC " 103050*10 50*10000": X= 100: GOSUB 1150: GOTO 1200 

: AQUA ’ 1 ’ - RED CENTER 

POKE 900,128: POKE 901,220: POKE 902,218: POKE 903,128 

POKE 932,128: POKE 933', 128: POKE 934,218: POKE 935,128 

POKE 964 , 209 : POKE 965 ,211: POKE 966 ; 2 1 9 : POKE 967.211 

MUSIC "100": X=25: GOSUB 1150 
COLOR =3: SHAPE =15: HLIN 3.8,12 
HLIN 3,8,13: HLIN 3,8,14 
RETURN' 


ORANGE 'O’ 
POKE 910,241: 
POKE 942,128: 
POKE 974,245: 
MUSIC "200": 


980 
990 
1000 
1 005 
1010 
1015 
1020 
1025 
1030 
104 0 
1050 
1 055 
1060 
1065 
1070 
1 080 
1085 
1090 
1 100 
1 105 
1110 
1 1 15 
1 1 20 


- BLUE CENTER 

POKE 911,252: POKE 912,252: 
POKE 943; 243: POKE 944,243: 
POKE 975,243: POKE 976,243: 
GOSUB 1150 
COLOR =2: HLIN 13,18,12 
HLIN 13,18,13: HLlN 13,18,14 
RETURN ' 

: YELLOW ’S’ - AQUA CENTER 

POKE 920,148; POKE 921,156: POKE 922,156: 

POKE 952,128: POKE 953,156; POKE 954,156: 

POKE 984,145: POKE 985,147: POKE 986,147: 

MUSIC "300": GOSUB 1150 

COLOR =0: HLIN 23,28,12 

HLIN 23,28,13: HLlN 23,28,14 

COLOR =0: HLIN 23,28,12 

RETURN 

: GREEN ’ 4 1 - YELLOW CENTER 
POKE 740,133: POKE 741,128: 

POKE 772,133: POKE 773.131: 

POKE 804,128: POKE 805,128: 

MUSIC "400": GOSUB 1150 
COLOR =1: HLIN 3,8,7 
HLIN 3,8,8: HLIN' 3,8,9 
RETURN' 

: WHITE ’5’ - GREEN CENTER 
POKE 750.197: POKE 751,204: 

POKE 782,196: POKE 783,204: 

POKE 814,193: POKE 815,195: 

MUSIC "500": GOSUB 1150 
COLOR =0: HLIN 13,18,7 
HLIN 13,18,8: HLIN 13,18,9 
RETURN l 

: PURPLE '6' - WHITE CENTER 
POKE 760,128: POKE 761,230: POKE 762,2 
POKE 792,229: POKE 793,225; POKE 794 '“ 
POKE 824,228: POKE 825,235: POKE 826 
MUSIC "600": GOSUB 1150 
COLOR =4: HLIN 23,28,7 
HLIN 23,28,8; HLlN 23,28,9 
RETURN ' 

ORANGE 9 7 9 - PURPLE CENTER 


POKE 742,12' 
POKE 774,135 
POKE 806, 131 


POKE 752,204: 
POKE 784,204: 
POKE 816,195: 


POKE 913,242 
POKE 945,248 
POKE 977,242 


POKE 923,146 
POKE 955,146 
POKE 987.152 


POKE 743, 
POKE 775, 
POKE 807, 


POKE 753,200 
POKE 785 ; 194 
POKE 817,200 


POKE 763.128 
36: POKE 795; 226 
!27 : POKE 827,232 


POKE 580,244: POKE 581,25 
POKE 612,128: POKE 613; 128: 
POKE 644.128: POKE 645,246: 
MUSIC "700": GOSUB 1150 
COLOR =6: HLIN 3,8,2 
HLIN 3,8,3: HLIN' 3,8,4 
RETURN' ' 

: RED ’S’ - AQUA CENTER 
POKE 590,177: POKE 591,188: 


POKE 58; 

POKE 614 ; 246: 
POKE 646,128: 


: POKE 583,250 
POKE 615,128 
POKE 647, 128 


POKE 622. 177: 
POKE 654,180: 
MUSIC "*100"; 
COLOR = 

HLIN 13 
RETURN 
: BLUE 


POKE 623, 188: 
POKE 655,179; 
GOSUB 1150 
: HLIN 13,13,2 
18,3: HLIN 13,18.4 


- ORANGE CENTER 
POKE 600,161: POKE 601,172: 
POKE 632,164: POKE 633,163: 
POKE 664,128: POKE 665', 128: 
MUSIC "*200" : GOSUB 1150 


POKE 592, 1SS: 
POKE 624; 1 S3: 
POKE 656, 179: 


POKE 602, 172: 
POKE 634,163: 
POKE 666,128: 


POKE 

POKE 

POKE 


393, 178 
>25, 178 
>57, 184 


POKE 603, 162 
POKE 635.170 
POKE 667,170 
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PACE 10 


I: RETURN 
EX=EXTRA CHANCE 


COLOR =7: HLIN 23,28, 

HLIN 23,28,3: HLIN 23 
RETURN ' 

FOR 1=0 TO X: NEXT 
DIM K*(l> ,8(40) 

10 N=1 : T=0: EX=0: REM 
1250 REM ADD NEW EOX 

1255 IF T=40 THEN 3000 
1260 T=T+1 

1270 S(N)= INT ( RND <0>*R+1) 

1280 IF S <N) =S (N— 1 ) THEN 1270 
1300 REM START PATTERN 

FOR N=1 TO T: GOSUB 1500: NEXT N 
REM COPY PATTERN 

FOR N=! TO T: X=0 
1370 K*= KEYS (2) : X=X+1 : IF X=40 THEN 1460 
IF K:$=" " THEN 1370 
IF ASC (Ki)-4BOS(N) THEN 1450 
REM RIGHT BOX 

GOSUB 1500: NEXT N 

IF T=15 THEN EX=1 : GOSUB 2000: GOTO 1250 
CALL 17004: GOTO 1250 
REM WRONG NOTE 

SU3=S ( N ) : S ( N ) = ASC ( K$ ) -48 : GOSUB 1 500 
POKE 640.123: POKE 672,128: POKE 704,128: POKE 736,128 
POKE 768,128: POKE 800,128: POKE 832,128 
MUSIC "-*77-*77-*77-*77-*77-*77-*77-'*77" 

IF EX=1 THEN EX=0: X=50: GOSUB 1 150: S <N) =SUBr GOTO 1300 
1480 N=T: NEXT N: POKE 40960,2: POKE 40961,0: INPUT "WANT ANOTHER CHANCE (YES=1) 
" ,A 

1490 IF A= 

1495 CALL 

: STOP 

1500 REM SUBROUTINE TO DISPLAY BOXES 

1510 ON StN) GOTO 700,750,800,850,900,950.1000,1050,1100 
1600 POKE 40960,2: POKE 40961,0: PRINT TAB (6) ; "M E M 0 R Y 
OTO 650 

2000 REM EXTRA CHANCE ROUTINE 

2010 POKE 640,106: POKE 672,69: POKE 704,88: POKE 736,84: POKE 768,82: POKE 800 
,65: POKE 832,106 

202C' MUSIC ”300000500030405000": RETURN 

3000 REM THIS PART IS FOR THOSE WHO SUCCESSFULLY REPEATED ALL 40 BOXES! ! ! ! ! 

CONGRATULATIONS '!!!!!!!!!!! 

• 0 1 0 FOR 1=0 TO 15: SHAPE =15: COLOR =1 
HLIN 0,31,1: CALL 17026: NEXT I 
CALL 17046: POKE 40960,2: POKE 40961,0 
PRINT ; PRINT : PRINT 

CONGRATULATIONS! ! ' ! YOU ARE ONE OF THE VERY FEW WHO HAS 
MADE IT THIS FAR (UNLESS YOU HAD THE PATTERN WRITTEN DOWN!!)" 
PRINT : PRINT " P.5. - MAYBE YOU COULD SEND YOUR BRAINS TO SC 


1125 

1130 

1140 

1150 

1200 


1310 

1350 

1360 


1390 
1400 
1410 
1420 
1 430 
1450 
1455 
1460 
1465 
1470 
1475 


CHICKEN! !!!!!!!!!": MUSIC "/ 100000000000000000000 " 


GAM 


": G 


3020 
3030 
3040 
3050 
3060 
3070 
IENCE? 

3080 PRINT 


PRINT 

PRINT 

PRINT 

PRINT 


PRINT "TO PLAY AGAIN, TYPE IN " RUN 5 . 


END 


1 REM HERE IS A FUN PROGRAM 

10 SHAPE =15 

20 FOR 1=0 TO 7 

30 COLOR =1 

35 CALL 17046 

40 HLIN 10,20,8 

50 GOTO 60 

55 CALL 17046 

60 MUSIC "2000 " 

65 COLOR =1+1 
70 HLIN 20.30,10 
80 MUSIC "3000 " 

85 COLOR =1+3 
90 HLIN 0, 10, 12 
95 GOTO 100 
100 MUSIC "1000 « 

105 COLOR =1+5 
110 HLIN 0, 10, 14 
120 MUSIC ‘view 
123 GOTO 125 
125 COLOR =1+4 
127 CALL 17046 
130 HLIN 20,30,12 
135 GOTO 140 ‘ 

140 MUSIC " .'500000000 " 


145 

147 

150 

160 

170 

180 

190 

200 

210 

220 

230 

240 

250 

260 

270 

280 

290 

300 

310 

320 


NEXT I 
CALL 17046 
MUSIC "2" 
COLOR =1+1 
HLIN 10,20,4 
CALL 17046' 
MUSIC "3" 
COLOR =1+2 
HLIN 10,20,6 
CALL 17046' 
MUSIC "1" 

HLIN 0,10,6 
CALL 17046 
MUSIC "/10" 
COLOR =1 
HLIN 10,20,14 
MUSIC 'V500" 
COLOR =1+4 
HLIN 20,30,12 
CALL 17046 
GOTO 150 
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SUBMITTED BY 


1 REM HERE IS AIM AMORTIZATION PROGRAM 

2 REM BILL BOWMAN 

D POKE 24573,33: POKE 3193,60 
10 DIM K*<1) 

20 COLOR = 6 : SHAPE =4 
30 GOSUB S00sCU=608: GOSUB 600 
“0 PRINT SPC ( 6 > ; "MORTGAGE AMORTIZATION" 
ri 5 PRINT * PRINT 'SPC C3);"1-PER THOUSAND RATE KNOWN" 
fRINT : PRINT SPC (3) ; "2-MONTHLY PAYMENT KNOWN" 

30 HLIN 1,30,1: HLIN 1,30,9 
30 VLIN 219,1: VLIN 2,9,30 

85 Cl!= 868 : GtDSUB 600: PRINT "SEE TOT. AFTER ANY MONTH" 
so PRINT SPC (2); "IF 1 -PRESS BREAK.. GOTO 2S1" 

37 PRINT SPC (2) -"IF 2-PRESS BREAK.. GOTO 432" 

85 INPUT " SELECT < 1-2)", S 
100 ON S GOTO 110,310 
110 GOSUB 500 : CU=5 12: GOSUB 600 
120 INPUT "PRINCIPLE 4 AMOUNT", P 

1 30 U I NPUT " I NTERE3T ( 7. ) " , 0 
140 INPUT "NO. OF YEARS", T 
1 -20 I NPUT "M, A. R. (4) PER THOUSAND " , M 
1d 2 GOSUB 500 s CU=512: GOSUB 600 
153 PRINT " ANY KEY TO START" 

155 N=P/ 1000 

160 FOR L=1 TO T*12 

K4= KEY 4 (0): IF K4=" " THEN 165 
A=P# 0/1200 
B=M*N 
C=B-A 
PRINT L; 

F-P-C 
X=X+A 
Z=Z-^B 

Y=Y+C: NEXT 

PRINT "ANY KEY TO SEE TOTALS" 

IF KEY 4 (0)="" THEM 276 
GOSUB 500 
CU=512: GOSUB 600 
PRINT "TOTALS FOR"; SPC (1);L-1; 

PRINT 

PRINT "INTEREST 4 SPC (1);X 
PRINT "PRINCIPLE $"• SPC (l)-Y 
PRINT "TOTAL 4"; SPC (l);Ys IF 
SPC ( 1 ) : J— Y : STOP 

IF Y > J THEN PRINT "PRINCIPLE OVERPAID. . ADJUST" 

IF Y< J THEN PRINT "PRINCIPLE UNDERPAID. . ADJUST" 
IF Y=J THEN STOP 

REM : ADJUST FOR OVER/UNDER PAY ON PRINCIPLE 
IF Y > J THEN !<=Y-J s Y=Y-Ks X-X+K 

-- THEN !<= J-Y : Y=Y+K: X=X— K 

PRINT "FINAL MO. ADJUSTED TOTALS ARE:-" 
PRINT "TOTAL INTEREST 4"; SPC < 1 > ; X 
'TOTAL PRINCIPLE 4"; SPC Cl) ; Y 


170 

190 

200 


SPC Cl) ; A 5 SPC 


SPC (1) ; "MONTHS 


-1<T*12 THEN PRINT : PRINT 


703 PRINT 

304 PRINT 

305 PRINT 

706 NT =X+Y 

707 PRINT "TOTAL 4"; SPC ( 1 ) ; NT 
308 STOP 

310 GOSUB 500 : CU=5 12: GOSUB 600 
320 INPUT "PRINCIPLE (4) AMOUNT " , P 
325 J=P 

330 INPUT "INTEREST <7.)",0 

340 INPUT "MO. OF YEARS"', T 

345 INPUT "MO. PAYMENT <$)",Q 

746 GOSUB 500: CU-512: GOSUB' 600 

350 PRINT "USE SPACE BAR TO START/ STOP" 

355 FOR L=1 TO T*!2 

35S K4= KEY 4 (0) : IF K4="" THEN 358 
760 A=P*O/1200 
370 b=Q-A 
380 C=A+B 

400 PRINT L; SPC (1);A; SPC (2>;B; SPC (2);C 


"PRINCIPLE BALA 
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415 

420 


F-P-B 


436 

440 

445 
NCE' 

446 

447 
445 

449 

450 


X=X+A: Y=Y+8: Z=Z+C 
NEXT 

PRINT "ANY KEY TO SEE TOTALS" 

IF KEYS (0)="" THEN 431 
GOSUB 500: CU=512: GOSUB 600 

PRINT "TOTALS FOR" ; 3PC (1);L-1; SPC (1 ): "MONTHS: 

PRINT : PRINT "INTEREST SPC (1);X 

PRINT "PRINCIPLE SPC ( 1 ) ; Y 

PRINT "TOTAL SPC'(1);Y: IF L-1<T*12 THEN PRINT : PRINT "PRINCIPLE BALA 

SPC ( 1 ) ; J-Y : STOP 

REM : ADJUST FOR OVER/UNDER PAY ON PRINCIPLE 
IF Y>J THEN PRINT "PRINCIPLE OVERPAID — ADJUST" 


451 


452 


IF Y< J THEN PRINT "PRINCIPLE UNDERPAID- 
" THEN GOTO 476 

THEN K=Y~ J : Y=Y-K: X=X+K 
THEN K=J-Y: Y=Y+K: X=X-K 


IF Y=J 


456 

460 

465 

470 

476 

/ 1 m 

490 

500 

510 

600 

610 


IF Y>J 
I F Y< “ 

:=x+v 

PRINT : PRINT "WITH FINAL MONTH ADJUSTMENT:-" 
PRINT 

PRINT "TOTAL INTEREST", X 
PRINT "TOTAL PR INCIPLE’' , Y 
PRINT “TOTAL PAID" ,Z 

PRINT "WITH THE FACTS AS GIVEN ...THE 


PRINT ’ A . R . PER "K" WOULD BE *’;C/(Y 


STOP 

r OR 1=1 TO 16: PRINT SPC (32): NEXT I 
RETURN 

POKE 40960. INT (CU/256) : POKE 40961, CU- ( INT (CU/2556) *256) 
RETURN 


0 REM /5RAND0M MUS7C PROGRAM SUBMITTED BY JIM RITTIS 
10 MUSIC "/a": GOTO 20 
15 MUSIC "7" 

20 Z= INT C RND (01*18) 

25 POKE 24578,54: CALL 34061: CALL 17046 

30 IF Z<7 THEN POKE 41990,47: POKE 41991, (Z+49) : GOTO 10 
40 IF Z < 1 3 THEN Z=Z— 6: POKE 42002, ( Z+49) : GOTO 15 
50 Z=Z— 12: POKE 41990,42: POKE 41991, (Z+49) 

60 GOTO 10 

5000 POKE 40960,0: POKE 40961,0 

5010 PRINT "I******************************* * THIS TAPE CONTAINS 4 PROG-* * R 
AMS: *" 

5040 PRINT "* ’ RUN’ = RANDOM MUSIC * * "GOTO 5000 ’ = WRITE INTRO * * 

SCREEN * " 

5070 PRINT "* ’ GOTO 6000’= READ INTRO * * SCREEN FOR PROOF * * 

’ GOTO 9000’= LIST ENTIRE *" 

5100 PRINT "* USER PROGRAM WITH CONTROL * * OF THE SCROLLING WITH THE * * 

SPACE EiAR *" 

5130 PRINT "* THE ’ GOTO 5000’ IS MORE OF * * AN EXAMPLE OF HOW TO.... * * 

*" 

5160 PRINT "*#*****#**#***####**##****##*#*" 

5200 POKE 41452,255 

5999 STOP 

6000 FOR N=0 TO 511: POKE 512+N, ( PEEK (W) ) : NEXT 

6001 STOP 

9000 N=0 : M=0 : L=0 

9002 L= ( PEEK ( 4 1 986+N ) ) / 1 6 : L= INT (L)*10+(L- INT (L) ) * 16: L=L* 100 
9004 M=( PEEK (41987+N) )/16:M= INT (M)*10+(M- INT (M) ) *16: M=M+L 
9006 PRINT : PRINT M:N=N+2 

9008 IF PEEK (41936+N) =13 THEN N=N+1: PRINT : GOTO 9002 
9010 PRINT CHR$ ( PEEK (41986+N) ) ; 

9012 IF KEY $ (0)0" " THEN 9012 ' 

9014 N=N+1 : GOTO 9008 
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10 CALL 17046 
20 POKE 24573,32 

24 DIM KEY $ (5) 

25 DIM BS(3) 

26 DIM CS(10): DIM DS(10) 
30 DIM AS (52, 3) 

40 AS ( 1 , 1 ) -"HA" 

41 A* (2, 1)-"H2" 

42 AS (3, 1)-"H3" 

43 AS <4 , 1 > = " H4" 

44 AS (5, 1 ) ="H5" 

45 AS (6,1) ="H6" 

46 AS (7', 1)="H7" 

47 AS (3, 1 ) ="H8" 

43 AS (9, I)="H?" 

49 AS (10, 1 ) ="H10" 

50 AS ( 1 1 , 1) ="HJ" 

51 AS (12, 1 ) —"HQ" 

52 AS (13', 1)="HK" 

53 AS (14; 1 ) ="DA" 

54 AS (15, 1 ) ="D2" 

55 AS (16; 1)="D3" 

56 AS (17, 1 ) ="D4" 

57 AS (18, 1 ) = " D5 " 

53 AS (19, 1 ) ="D6" 

59 AS (20, 1 ) ="D7" 

60 AS (21 , 1 ) ="D8" 

61 AS (22, 1 ) ="D9" 

62 AS (23, 1)="D10" 

63 AS (24, 1)="DJ" 

64 AS (25, 1 ) ="DQ" 

65 AS (26; 1)="DK" 

66 AS (27', 1 ) = "3A " 

67 AS (23, 1 ) ="S2" 

63 AS (29, 1 ) ="S3" 

69 AS (30, 1 ) ="S4" 

70 AS (31 ', 1) ="35" 

71 AS (32; 1) ="36" 

72 AS (33, 1 ) ="S7" 

73 AS (34, 1)="S8" 

74 AS (35, 1) ="S9" 

75 AS (36, 1 ) ="S10" 

76 AS (37, 1 ) ="SJ " 

77 AS (38; 1 ) ="SQ" 

73 AS (39, 1 ) ="SK" 

79 AS (40, 1 ) ="CA" 

30 AS (41, 1 ) ="C2" 

81 AS (42, 1 ) ="C3" 

32 AS (43, 1 ) ="C4" 

83 AS (44, 1 > ="C5" 

34 AS (45, 1 ) ="C6 " 

35 AS (46, 1 ) ="C7" 

36 AS (47, 1 ) ="CS" 

37 AS (43, 1 ) ="C9" 

88 AS (49, 1 ) ="C10" 

39 AS (50, 1)="CJ" 

90 AS (51, 1)="CQ" 

91 AS (52, 1 ) ="CK" 

100 PRINT " 

" PRINT : PRINT 


110 

120 

130 

131 

132 

141 

142 

143 
150 
15.1 

152 

153 
.154 
155 
1 60 
165 


PRINT 

PRINT 

PRINT 

FOR 

GOSUB 

CALL 

INPUT 

INPUT 

CALL 

PRINT 

INPUT 

IF B$= 

IF BS : 

PRINT 

CALL 

PRINT 


* BLACK* JACK* 
FRINT : PRINT 


PRINT : PRINT : PRINT 
J. ALEX DRAUGHON 


=1 TO 550: NEXT I 
1 000 
17046 

"ENTER THE NAME OF PLAYER #1 ! ' ! 
"ENTER THE NAME OF PLAYER #2 ! 1 ! 
1 7046 

"DO YOU REQUIRE INSTRUCTIONS??? 


'"NO" THEN 200 
=" YES" THEN 160 
PLEASE ANSWER 
17046 
: PRINT 


YES-' OR 'NO’... 


BY 
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170 

171 


173 

174 


180 

181 

132 

183 

- 

135 

186 

187 

189 

190 
200 
201 
202 

209 

210 


PRINT PRINT " INSTRUCTIONS " 

PRINT "THE SUITES ARE REPRESENTED AS FOLLOWS: S = SPADES 
PRINT " H = HEARTS C = CLUBS " 

PRINT " D = DIAMONDS " 

PRINT : PRINT "THE CARD NUMBERS ARE IN NUMERIC FORM WITH THE FOLLOWING 
EXCEPTIONS: " 

PRINT "A = ACE, J = JACK, 0 = QUEEN K = KING 

PRINT "EXAMPLES: HA=ACE OF HEARTS 

S10=TEN OF SPADES " , „ 

INPUT "PRESS ANY KEY TO CONTINUE! !!!!", B 
CALL 17046 

PRINT CS; " WILL USE THE LEFT CONTROL" 

PRINT DS'; " WILL USE THE RIGHT CONTROL" 

PRINT : PRINT "PRESS THE ’FIRE’ BUTTON FOR A HIT." 

PRINT "PRESS THE ’CLEAR’ KEY IF YOU WANT TO STAND." 

PRINT "THE ’FIRE’ BUTTON WILL ALSO RE- SET THE GAME AT THE END." 

PRINT : PRINT 

INPUT "PRESS ANY KEY TO CONTINUE! !!!!", B 
CALL 17046 
REM 

CALL 17046 
L=0:M“0 

PRINT C$; SPC (18) 

X= RND (10) 

U= RND (10) 

V=U#100: IF V>52 GOTO 211 
IF V<1 THEN 211 
IF AS(V. 1)="0" THEN 211 
Y=X# 100: IF Y>52 GOTO 210 
IF Y< 1 GOTO 210 
IF AS ( Y, 1 ) ="0" THEN 210 
IF V=X THEN 210 

IF L>0 THEN PRINT AS ( Y, 1 ) : AS ( Y, 1 ) ="0" : GOTO o-00 
IF M >0 THEN PRINT ; SF'C (22) ; AS ( V, 1 ) : AS C V, 1 ) ="0" : GOTO 3^.0 
PRINT AS(Y, 1) ; SPC (20) ; AS (V, 1 ) 

AS (V, 1 ) ="0" 

AS ( Y , 1 ) = " 0 " 

N-N+l 

IF N=2 THEN 300 

250 GOTO 210 
300 N=0 

310 PRINT "HITT 

311 BS= KEYS (2): IF BS="" THEN oil 

312 IF BS=" ! " THEN L=L+ls GOTO 210 

320 L=0: PRINT " HIT? 

321 BS= KEYS (1): IF BS="" THEN 321 

322 IF BS=" ! " THEN M=M+ls GOTO 210 
350 CALL 17046 

360 PRINT "WOULD YOU LIKE TO TRY AGAIN????" 

370 BS= KEYS (2): IF BS="" THEN 370 

371 IF 3S=" ! " THEN CALL 17046: GOTO 200 

377 CALL 17046: PRINT "NO??? OH WELL..." 

378 PRINT : PRINT : PRINT 

380 PRINT "THIS IS YOUR * BLACK# JACK* 

FOR NOW !!!!!!!!!!!! 1 !!!!!!! " 

381 PRINT : PRINT : PRINT : PRINT : PRINT 


211 


230 

240 


COMPUTER PROGRAM SAYING ’GOOD- BYE 
PRINT : PRINT " THE END 


GOTO 388 
CALL 17046 
SHAPE =15: COLOR =0 
COLOR =4: FOR 1=5 TO . . . 

COLOR =3: HLIN 4.12,4: HLIN 4,12,12 
PLOT 3,4: SHAPE =11: PLOT ' 13, 4: _SHAPE 
1100 ' ■" " 


383 

1000 

1020 

1060 

1080 


TO 11 ; HLIN 4^12,1: HLIN 18,26,1: NEXT I _ 

VLIN 5,11,3: VLIN 5.11,13: SHAPE =7: 
PLOT 3,12: SHAPE =14 

f>L6T^17 12: ‘COLOR =2: fcLOT 27,12: SHAPE =15': HLIN 18,26,4: HLIN 18,26,12: 
i, 11, 17: ' VLIN 5,11,27: SHAFE =11: PLOT 27,4 
SHAPE =7: PLOT' 17,4: SHAPE =13: PLOT 17,12 
COLOR =0: FOR 1=6' TO 8: PLOT 1,6: PLOT 1,8: PLOT 1,10: 

LOT 6,9: PLOT 8,7: PLOT 9,7: PLOT 8,9: PLOT 9,9 
1180 HLIN 20,23,6: VLIN 6,10,22: HLIN 20,22,10: PLOT 20,9 
2000 PRINT " #BLACKJACK*BLACKJACK*BLACKJACK*" : PRINT : PRINT 
2010 FOR 1=1 TO 400: NEXT I 
2500 RETURN 


VLIN 

ill© 

1140 


NEXT I: PLOT 6,7: P 
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0 CALL 17046: PRINT : PRINT : PRINT 

1 PRINT " *STATE#CAPITALS* 

PRINT : PRINT : PRINT : PRINT : PRINT 

PRINT 


PRINT : PRINT 

PRINT : PRINT : FOR 1=1 TO 550: NEXT I 
POKE 24578,32 
DIM AS (15) ' 

CALL 17046 

PRINT "ENTER THE NAME OF A STATE SO 
" : INPUT AS 
CALL 17046 

IF A$= " D I STR I CT OF COLUMBIA" THEN 
IF AS=" WYOMING" THEN GOTO 590 
IF AS=" WASHINGTON D.C." THEN GOTO 
IF A3>= “PUERTO RICO" THEN GOTO 610 
IF A$=" OREGON" THEN GOTO 500 
IF A$= " PENNSYLVANIA" THEN GOTO 510 
IF AS=" SOUTH CAROLINA" THEN GOTO 520 
IF AS=" TENNESSEE" THEN GOTO 530 
IF AS=" TEXAS " THEN GOTO 540 
If A$=" VIRGINIA" THEN GOTO 550 
IF AS=" WASHINGTON" THEN GOTO 560 
IF A$=" WEST VIRGINIA" THEN GOTO 570 
IF fl$=" WISCONSIN" THEN GOTO 580 
IF A$=" ALABAMA" THEN GOTO 104 
IF AS =" ALASKA" THEN GOTO 110 
IF A$= " ARKANSAS " THEN GOTO 120 
IF AS=" ARIZONA" THEN GOTO 130 
IF AS=" CALIFORNIA" THEN GOTO 140 
II- AS = "NEW MEXICO" THEM GOTO 150 
IF AS=" COLORADO" THEN GOTO 160 
IF AS=" CONNECT I CUT" THEN GOTO 170 
IF AS=" RHODE ISLAND" THEM GOTO 180 
IF AS=" DELAWARE" THEN GOTO 190 
IF AS=" MARYLAND" THEN GOTO 200 
IF AS=" FLORIDA" THEN GOTO 210 
IF A$= "GEORGIA" THEN GOTO 220 
IF A$= " HAWA II" THEN GOTO 230 
IF AS=" IDAHO" THEN GOTO 240 
IF A$=" ILLINOIS" THEN GOTO 250 
IF A$=" INDIANA" THEN GOTO 260 
IF AS= " I OWA " THEN GOTO 270 
IF AS=" KANSAS" THEN GOTO 280 
IF AS=" KENTUCKY" THEN GOTO 290 
IF fiif.= " LOUISIANA" THEN GOTO 300 
IF AS =" MAINE" THEN GOTO 310 
IF A$=" MASSACHUSETTS" THEN GOTO 320 
IF A $ = " MI CHI GAN" THEN GOTO 330 
IF AS=" MINNESOTA " THEN GOTO 340 
IF AS=" MISSISSIPPI " THEN GOTO 350 
IF AS- " M I SSOUR I " THEN GOTO 360 
IF A*=" MONTANA" THEN GOTO 370 
IF As-- " NEBRASKA" THEN GOTO 380 
IF AS =" NEVADA" THEN GOTO 390 
IF AS=" UTAH" THEN GOTO 400 
IF A$=" NEW HAMPSHIRE" THEN GOTO 410 
IF AS=" VERMONT" THEN GOTO 420 
IF AS= " NEW JERSEY" THEN GOTO 430 
IF A$= " NEW YORK" THEN GOTO 440 
IF AS=" NORTH CAROLINA" THEN GOTO 450 
IF A$=" NORTH DAKOTA" THEN GOTO 460 
IF AS=" SOUTH DAKOTA" THEM GOTO 470 
VH IF AS= " OHIO " THEN GOTO 480 

99 IF A$=" OKLAHOMA" THEN GOTO 490 

100 PRINT "I'M SORRY, BUT YOU EITHER MADE 
E IN THE NAME OF A STATE!": FOR L=1 TO 500 

101 NEXT L: GC-TO 10 
PRINT "THE CAPITAL IS MONTGOMERY 
GOTO 5000 

PRINT "THE CAPITAL IS JUNEAU 
GOTO 5000 

PRINT "THE CAPITAL IS LITTLE ROCK 
GOTO 5000 

PRINT "THE CAPITAL IS PHOENIX 
GOTO 5000 

PRINT "THE CAPITAL IS SACRAMENTO 
GOTO 5000 

PRINT "THE CAPITAL IS SANTA FE 
GOTO 5000 

PRINT " THE CAPITAL IS DENVER 


ALEX DRAUGHQN 


20 


31 


60 


63 


6 6 

67 

68 

69 

70 


78 


S7 

BE 

c , 


96 


104 

1 05 
i 10 
115 


160 


PRINT "THAT I CAN TELL YOU ITS CAP I 


GOTO 600 
600 


A MISTAKE IN SPELLING OR DID NOT TYP 
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165 GOTO 5000 

170 PRINT 11 THE CAPITAL IS HARTFORD " 

175 GOTO 5000 

180 PRINT "THE CAPITAL IS PROVIDENCE " 

185 GOTO 5000 

190 PRINT "THE CAPITAL IS DOVER" 

195 GOTO 5000 

200 PRINT "THE CAPITAL IS ANNAPOLIS" 

205 GOTO 5000 

210 PRINT "THE CAPITAL IS TALLAHASSEE" 

215 GOTO 5000 

220 PRINT " THE CAPITAL IS ATLANTA " 

225 GOTO 5000 

230 PRINT "THE CAPITAL IS HONOLULU" 

235 GOTO 5000 

240 PRINT "THE CAPITAL IS BOISE" 

245 GOTO 5000 

250 PRINT " THE CAPITAL IS SPRINGFIELD" 
255 GOTO 5000 

260 PRINT " THE CAPITAL IS INDIANAPOLIS" 
265 GOTO 5000 

270 PRINT "THE CAPITAL IS DES MOINES " 

275 GOTO 5000 

280 PRINT "THE CAPITAL IS TOPEKA" 

285 GOTO 5000 

290 PRINT "THE CAPITAL IS FRANKFORT" 

295 GOTO 5000 

300 PRINT " THE CAPITAL IS BATON ROUGE " 
305 GOTO 5000 

310 PRINT " THE CAPITAL IS AUGUSTA " 

315 GOTO 5000 

320 PRINT " THE CAPITAL IS BOSTON" 

325 GOTO 5000 

330 PRINT " THE CAPITAL IS LANSING" 

335 GOTO 5000 

340 PRINT "THE CAPITAL IS SAINT PAUL" 

345 GOTO 5000 

350 PRINT " THE CAPITAL IS JACKSON" 

355 GOTO 5000 

360 PRINT " THE CAPITAL IS JEFFERSON CITY 
365 GOTO 5000 

370 PRINT " THE CAPITAL IS HELENA" 

375 GOTO 5000 

380 PRINT "THE CAPITAL IS LINCOLN" 

385 GOTO 5000 

390 PRINT "THE CAPITAL IS CARSON CITY " 
395 GOTO 5000 

400 FRINT " THE CAPITAL IS SALT LAKE CITY 
405 GOTO 5000 

410 PRINT "THE CAPITAL IS CONCORD" 

415 GOTO 5000 

420 PRINT "THE CAPITAL IS MONTPELIER" 

425 GOTO 5000 

430 PRINT "THE CAPITAL IS TRENON" 

435 GOTO 5000 

440 PRINT "THE CAPITAL IS ALBANY" 

445 GOTO 5000 

450 PRINT "THE CAPITAL IS RALEIGH" 

455 GOTO 5000 

460 PRINT " THE CAPITAL IS BISMARCK" 

465 GOTO 5000 

470 PRINT " THE CAPITAL IS PIERRE" 

475 GOTO 5000 

480 PRINT "THE CAPITAL IS COLUMBUS" 

485 GOTO 5000 „ 

490 PRINT ” THE CAPITAL IS OKLAHOMA CITY 
495 GOTO 5000 

500 PRINT "THE CAPITAL IS SALEM" 

505 GOTO 5000 

510 PRINT " THE CAPITAL IS HARRISBURG" 
515 GOTO 5000 

520 PRINT "THE CAPITAL IS COLUMBIA" 

525 GOTO 5000 

530 PRINT "THE CAPITAL IS NASHVILLE" 

535 GOTO 5000 

540 PRINT " THE CAPITAL IS AUSTIN" 

545 GOTO 5000 

550 PRINT " THE CAPITAL IS RICHMOND" 


icntnuH.nuu.nui 
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55 GOTO 5000 

60 PRINT " THE CAPITAL IS OLYMPIA" 

65 GOTO 5000 

70 PRINT " THE CAPITAL IS CHARLESTON" 

75 GOTO 5000 

80 PRINT "THE CAPITAL IS MADISON" 

85 GOTO 5000 

590 PRINT "THE CAPITAL IS CHEYENNE" 

595 GOTO 5000 

600 PRINT "THE CAPITAL IS ANNAPOLIS" 

605 GOTO 5000 

610 PRINT " THE CAPITAL IS SAN JUAN" 

615 GOTO 5000 
625 GOTO 5000 

5000 PRINT "PRESS •' RETURN’ TO CONTINUE " : INPUT Z 

5010 GOTO 10 


DR INTERE=?TnE B |ffeBt RAM SUBMITTED EY TAYLOR. 

5 CALL 17046 

10 X= INT < RND <0>*15+1> 

20 IF X<=5 THEN COLOR =4 
30 IF X >5 THEN COLOR =5 
40 IF X >9 THEN COLOR =1 
50 SHAPE =X 
60 HLIN X , 31 , X 

64 Y= INT '( RND (0) *324-1) 

65 VLIN X , 15, Y 
70 GOTO 5' 


CHANGE LINE 70 TO GOTO 10 


PROGRAMS IN REVIEW. 

First on the list is EDDIE BEDNAR 9 S Here is a handful of games 
for everybody. The prices are right and make great stocking stuffers 

John Meehalas has a dandy "cenopede" game for us this year. 

===High res graphics, Color, Lotsa act i on=== Makes for some good 
scores for all on this version. 

Russ Needham has delivered two programs that should not be missed 
by anyone with children from five to 12. "spellbinder" is a novel 
and fun way to help with spelling and "safari in. Africa" is an 
action adventure game. Your kids won't know they're practicing 

reading skills till you tell them. This is the IM-1 at it’s 

finest as a teaching tool for little programmers. 


LONELY MEMBERS 
David Alger 
RR1 BOX 234 A 
Carbon I:., 47837 
Phone 31 7—672-4652 
Presently or, robotics 
committee for ARCO 
al umi num . Programmi ng 
in BASIC for several 
years learning assy.lang. 
Interested in C.A.I. 
Believe that IM--1 is 
tops for purpose. 

1 6K with disc, Rommon , 
Sdevel II BASIC. 


Emmet Jenkins 
F.O. BOX 1302 
BRONX, N.Y. 10452 
I love science fiction 
and related literature: 
Omni, Popular Scirnce, 
almost all computer 
magazines, and fat women! 
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21 
NT 
I NT 


CALL 17046 
POKE 2457S, 32 
PRINT " 

: PRINT " 


MERRY CHRISTMAS 
BY 


PRINT : PRINT : PRINT : PRINT : 
: PRINT ; PRINT : PRINT : PRINT 


PRI 
: PR 


HLIN 14, 16, 14 


PRINT " J 

FOR 1=1 TO 550: 

CALL 17046 
COLOR =4: SHAPE =15 
FOR 1=11 TO 15 
HLIN 0,31,1 
NEXT I' 

COLOR =6: HLIN 13,17,1 
COLOR =3: PLOT 15,12' 

COLOR =0 
HLIN 11, 19, 11 

hlin 12 ; is ; 10 
HLIN 13,17,9 
HLIN 14 ; 16,8 
HLIN 15,15,7 
SHAPE =12: COLOR =1 
HLIN 20,28,4 
SHAPE =1: PLOT 19,3 
175 COLOR =3 

180 SHAPE =11: PLOT 21,3: SHAPE =3: PLOT 22,3: PLOT 23,3: SHAPE =15: P 
PLOT 24.2: COLOR =4: PLOT 24,1 
190 COLOR =3: SHAPE =7: PLOT' 24,0 

200 COLOR =7: SHAPE =15: HLIN 26,28,3: PLOT 27,2: SHAPE =1: PLOT 26,2: SHAP 
: PLOT 28,2: SHAPE =1: PLOT 26,1: ' SHAPE =2: PLOt 27,1 * 

210 COLOR =1 5 ' 

220 SHAPE =3: PLOT 16,2: PLOT 17,2: SHAPE =6: PLOT 14,3: SHAPE =2: PLOT 15 
HAPE =1: PLOT 16,3: SHAPE =9: PLOT 17,3 
30 _SHAPE =6: PLOT 14,2: SHAPE =2: PLOT 15,1: SHAPE =4: PLOT 


40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 

170 


E =2 
: S 


DT13;r ’ -■ ■— - - - — — *“> 2! SHAPE =2 

240 SHAPE =3: PLOT 15,2 

250 HLIN 7,9,2: SHAPE' =6: PLOT 9,3: PLOT 6,3: SHAPE =2: PLOT 7,3: PLOT 10,3: 
APE =11: PLOT 6,2: SHAPE =9: PLOT' 5,1: SHAPE =1: PLOT 6, 1 
260 SHAPE =8: PLOT 7,1: COLOR =7: SHAPE =1: PLOT 5,2 ' 

280 COLOR =3: SHAPE =3: PLOT 23,2 

285 COLOR =4: SHAPE =1: PLOT 22; 2 

290 POKE 714,13: POKE 715,5: POKE 716,18: POKE 717,18: POKE 718,25 
300 POKE 720,3s POKE 721,8: POKE 722,18: POKE 723,9: POKE 724.19: POKE 725,2 
POKE 726.13: POKE 727,1: POKE 728,19 ’ ’ 

310 GOTO 310 


1 REM BATTLE OF NUMBERS ... BY D ON 

10 GOSUB <20: CALL 17046 

20 A= INT ( RND (0)*13+7): REM ARBITRARY 
30 B= INT ( RND (0) *37+41): REM ARBITARY 
40 PRINT "INTERRVAL IS I TO " ;A: PRINT 
50 PRINT "STARTING TOTAL IS ";B: PRINT 


60 
70 
80 
85 
90 
100 
110 
120 
130 
140 
? 50 
160 
170 
180 
190 
200 
210 


260 

270 


INPUT "YOU GO ",P 
IF INT (P)OP THEN 100 
IF INT (CP-1) /A) <>0 THEN 100 
IF P=0 THEN 100 
IF P<=B THEN 110 
PRINT "ILLEGAL NUMBER": GOTO 60 
B=B-P: IF B=0 THEN PRINT "*** 

1= INT ( (B-I) / CA+1) ) 

C=B- ( (A+l ) / (A+ 1 > ) 

IF C=0 THEN 170 
C= INT ( RND <0) * A+l ) 

IF B=C< 0 THEN 150 
B=B— C : PRINT "I TAKE" , C 
IF 8=0 THEN PRINT "*#* YOU WIN***”: GOTO 
PRINT "LEAVE TNG A TOTAL OF " ,B: GOTO 60 

ANOTHER BATTLE? <Y=1 N=0",P: IF P=1 THEN 


WIN***": GOTO 


200 


INPUT 

END 

INPUT 

PRINT 

PRINT 

PRINT 


'DO YOU KNOW THE RULES? ( Y=1 , N=0) " , P: IF P=1 THEN RETURN 
■WE TAKE TURNS SUBTRACTING AN INTEGER" 

'IN THE RANGE OF (1) TO SOME NUMBER (A)" 

'FROM ANOTHER <B),WI7H THE DIFFERENCE" 

LEAVE I NG (B) FOR THE NEXT ’ TURN . THE" 

PRINT "LAST ONE TO SUBTRACT LOSES. HERE WE GO": RETURN 
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1 POKE 24578.54: CALL 17046 

2 DIM A$ (2) 

3 M— 1 5 

5 GOSUB 300 

10 PRINT " * * ** GAME OF 15 MATCHES ***" 

15 F'R I NT 

20 INPUT "DO YOU NEED INSTRUCTIONS " , A* 

25 IF A$="Y" THEN GOSUB 700 
30 PRINT 

35 INPUT "DO YOU WANT TO GO FIRST ".A* 

45 M-0 : R— 0 

50 PRINT : INPUT "HOW MANY MATCHES DO YOU WANT 

51 GOSUB 300 

60 IF A*="Y" THEN 70 
65 GOSUB 100 
6S GOSUB 300 
70 GOSUB 200 
75 GOSUB 300 
80 GOTO 65 
100 IF M= 1 THEN 520 
105 R=M-4* INT (M/4) 

110 IF ROl THEN 130 

120 C=3* RND ( X ) : C= INT (0+1 

125 GOTO 140 

130 C=(R+3>-4* INT <<R+3)/4) 

140 M=M-~ 


150 

PRINT 

"I’M THINKING ! ! " 



155 

MUSIC 

" *5/3 *5/3 *5/3 444 

444 *5/3 

*5/: 

156 

IF C=1 

THEN 172 



157 

PRINT 

: PRINT "OKAY, I’LL TAKE 

" : Cb " MATCHES, 

160 

FOR X= 

1 TO 400: NEXT X 



170 

RETURN 




172 

PRINT 

: PRINT "OKAY, I’M GOING 

TO TAKE 

ONLY 

174 

GOTO 160 



200 

IF M=1 

THEN 500 



203 

PRINT 

"OKAY HUMAN. . THERE ARE 

" 

; M ; " 

205 

PRINT 

: INPUT "HOW MANY DO YOU 

WANT TO 

TAKE" 

207 

PRINT 




210 

IF H< 1 

THEN 220 



215 

IF H >3 

THEN 220 



218 

GOTO 2 

40 



220 

PRINT 

"TSK ! TSK ! " : MUSIC "334 

4 50" 



PRINT 

"YOU CAN ONLY TAKE 1,2, 

OR 3 ! ! ! ! 


230 

GOTO 2 

03 




240 IF M >H THEN 250 

245 PRINT " YODLJ ONLY HAVE ";M;" MATCHES!!": MUSIt 
248 PRINT : GOTO 203 
250 M=M-H 
260 RETURN 

300 CALL 17046 

301 FOR J=1 TO M: COLOR =5: SHAPE =5 
305 VLIN 5, 10, 2# J 

307 COLOR =3 ‘ 

308 PLOT 2*J,4 
310 NEXT J 
320 RETURN 
500 GOSUB 300 

502 PRINT : PRINT " YOU LOSE!!!": MUSIC "500 /- 

505 PRINT "TOO BAD. BETTER LUCK NEXT TIME." 

508 GOTO 600 
510 GOSUB 400 

520 PRINT "VERY GOOD. YOU’VE WON!!" 

521 MUSIC " /5 /I /5 /7 33 7 54000" 

522 PRINT "I TOOK THE LAST MATCH.." 

525 GOTO 600 

600 CALL 17046 

610 POKE 40960.2: POKE 40961,512 

615 INPUT "DO YOU WANT TO PLAY AGAIN",A$ 

620 IF A$="Y" THEN 20 

625 PRINT : PRINT "OKAY, MAYBE NEXT TIME." 

628 MUSIC "50 40 33 / 1 ' /l /I *2000" 

629 FOR X=1 TO 100: NEXT X 

630 M= 1 5 

635 GOSUB 300 
640 COi-OR =1 
645 FOR T=1 TO M 
650 PLOT 2*T, 4 
655 NEXT T 


TO START WITH " , M 


; 321 321 *7 500000" 

1 MATCH. " 

MATCHES LEFT." 

H 

) "345 666 *7*7" 


-3000000000" 
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660 

670 

680 

690 

692 

695 

700 

705 

710 

715 

720 

725 

730 

735 

750 

800 


FOR X=1 TO 200: NEXT X 

CALL 17046 

STOP 

FOR X=1 TO 900: NEXT X 

CALL 17046 

RETURN 

CALL 17046: POKE 40960,2: POKE 40961,512 
PRINT "WE BEGIN THE GAME WITH A ROW OF MATCHES." 

: G05UB 690 

"THEN WE TAKE TURNS REMOVING 1,2,3 MATCHES UNTIL THEY ARE ALL GONE. 
: GOSUB 690 

"WHOEVER TAKES THE LAST MATCH LOSES." 

: GOSUB 690 _ , 

"IT'S A THINKER'S GAME AAND I'M GOOD AT IT." 

GOSUB 690 


PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT 

PRINT : 

RETURN 

END 


M ES ENTERPRISES, Inez x terns -For- sal e 

1. Adapter cable to allow hooking ATARI type joy sticks to the 
IM-1. With this cable and a small modification to the Atari 
Joystick you can get the use of the IM-1 and Atari Joystick. 

Atari Joystick and installation of both. 

COST T C P‘ _ CiPtOM 

OR ^ _ <3 0 FOR 22 

Include $2.00 shipping and handling 

2. GEMINI 10X or 15X Printers... These come complete with all 

of the special interfaces and cables needed in the GEMINI to attach 
them to the IM-1. Also for limited time you can get a free 
SI-232 far the IM-1 with the purchase of the printer. 

GEMINI 1 £3 X $399.95 

GEMINI 1SX 

Please include $15.00 shipping & handling 


3. Disc Drives for the IM— 1...... 

COST - <35 

Include $10.00 shipping S< handling 

4. Combination CABLE and Atari Joystick for the IM-1 

COST ^22-qL _ <35 EACH 

2 -For - $39 - 95 
Include $3.00 shipping & handling 

5. Modified SI-232 with program to allow the use of a printer 

and modem at the same time on the IM— 1 

COST TC3 _ «35 EACH 

Include $3.00 shipping St handling 

6. A1 so now have a I i ne o-F 

Computer -Fur-ni tur e HP cor- sal e , sc 
i -F ■y to i— n. want more i nf o wr- i te to 

the addlr-ess below. 


SEND Atl 1 — ORDERS TO = = 

M 33 ENTERPRISES, Inez 
F-’O BOX 14 11 
SPR I NGDAI — EZ 
ARKANSAS 72765 
AI 1 x -fc ems limited quant i t ± e? ss , 

first come first serve _ !=• 1 eas 

al 1 oww 4 to 6> wesks -For— del i n 



oftware 


1048 Alpine N.W., Grand Rapids, Ml. 49504 


Hexmart is a newly formed software vendor dedicated to providing the APF computer owner 
with a new and unique collection of programming. We feel the APF computer is a well 
built and powerful system which lacks only the software to unlock it's true potential. 

After a review of this initial collection, we believe you will agree that this is the 
beginning of what we feel is a powerful group of UTILITY software. HEXMART is not a 
game company, we prefer to think of ourselves as a company which provides the "tools" 
to assist you, the user, with your program needs. 


I software! 

SUPER BASNUM : The BASIC line renumbering program. 

$14.95 on cassette - loads in 8K, runs using no program RAM 
Have you ever programmed yourself into a corner? You need a ten line subroutine but have 
space for only five lines. Don't worry, BASNUM is here! Renumber your entire program 
from the beginning OR renumber starting from ANY line. You specify the starting point, 
load your program and CALL BASNUM. It does the rest, including changes to all line 
references. It's loaded with error checking which makes it easy to use. 


SUPER SORT : A machine language string sorting routine. 

$14.95 on cassette - loads in 8K, requires less then 1/2 K 
If you have ever tried to sort a lengthy list of strings in BASIC, then you know how slow 
APF can be. No more! SUPER SORT is a machine language sorting routine which can be 
included in your programs to speed string sorts by over 100 times. A few simple POKEs 
followed by a CALL is all that's needed. You can include SUPER SORT in your existing 
programs (it is supplied with an APPEND routine allowing your program to be loaded 
"behind" the machine code), or you can write a new program behind SUPER SORT. A truly 
powerful routine. 


TAPE ASSEMBLER : A cassette based assembler for APF's Motorola 6800. 

$14.95 on cassette - loads in 8K, expandable to 16K 
No, you don't need a disk system to write Assembly Language programs. Hexmart's TAPE 
ASSEMBLER allows you to write those programs using 6800 code. Buy now and receive the 
following: 1 ) two programs - screen only and line printer versions, 2) instructions - 
including how to use and incorporate Assembly code in the APF, 3) 6800 Assembly Language 
work sheets, and 4) a brief introduction to Assembly Language programming. Learn to make 
the APF fly! 


DISK DIR : A master disk directory filing system. 

$12.95 on cassette - loads in 8K, transferable to diskette. 

You say you have a house full of diskettes and your not sure which one contains that 
needed program? DISK DIR to the rescue! Creates a master file of up to 200 titles from 
the directories of all your diskettes. You name each disk with any three-character code 
and DISK DIR automatically reads all program names on the disk, sorts them into 
alphabetical order, and stores them in the master file. Editing allows the master file to 
be updated as your collection of programs change. 


DISK MOD / INIT40 : A two program set. For all serious disk users. 

$12.95 on cassette - both load in 8K, transferable to disk 
DISK MOD - Numerous features allow the user to read any track and sector from an APF disk, 
display it on the screen, place it in RAM, modify it, or write it back to disk. Automatic 
stepping allows work on contiguous or separate sectors. READ/EXAMINE/MODIFY/WRITE. You 
can even read disks from other popular computers including Radio Shack and Tl. 

INIT40 - Tired of 34 tracks of 8 sectors? How about 40 tracks of 10 sectors! Yes, you 
can now INITialize your diskettes beyond APF. These INITialized disks are still 
compatible with APF's DOS. However when used with DISK MOD, you get an additional 32K of 
storage. These two programs are a must for any serious disk owner. 

****************************************************************************************** 

SPOTLIGHT on SOFTWARE : A closer look at HEXMART's SUPER BASNUM 

SUPER BASNUM is a line renumbering program which incorporates the features found 
in numerous larger computer systems. Below is a review of those features: 

#1. TOTAL USER FLEXIBILITY 

You specify the conditions... Renumber the whole program with any beginning line 
number and increment or renumber a portion of the program starting at any line number. 
#2. REFERENCED LINE POINTERS AUTOMATICALLY UPDATED 

"BASNUM" has been designed to accomodate all of APF BASIC's referenced line "calls". 

(ON) GOTO, (ON) COSUB, IF-THEN, and PRINT USING (when referenced to line #). 

All line number references will be changed. 

#3. OCCUPIES NO USER RAM 

Since "BASNUM" exists in an area of memory not normally used by BASIC, most any 
program that will load into memory can be renumbered. Works in 8 or 16K IM-1's 
and 27K IM-2's. 

#4. REM STATEMENTS IGNORED 

All code following a REM statement is ignored. As a result. Assembly (machine) 
language subroutines written under a REM are unaffected by "BASNUM". 

#5. UNIQUE ERROR CHECKING 

"BASNUM" has been given four (4) error handling routines. If it finds any of these 
errors, it will abort renumbering and display an error message. These unique checks 
guard against user and program generated problems. 

#6. USER FRIENDLY 

"BASNUM" is menu driven. Combined with easy to understand "prompts", error checking, 
and mistake recovery, even the first-time user should have no trouble. 

****************************************************************************************** 

All programs are supplied on quality cassette tape and are transferable to diskette. 

All will load and run in an 8K computer. Documentation outlines conversion to 16K. 

Prices include all shipping and handling. Each program is sold with a 60 day replacement 
guarantee - if it fails, return the original copy to HEXMART for a free replacement. 


ORDER FORM: 


CHECK or 

Send NAME, ADDRESS, and MONEYORDER to: 


SUPER BASNUM 
SUPER SORT 
TAPE ASSEMBLER 
DISK DIR 

DISK MOD / INIT40 


$14.95 ea. 
$14.95 ea. 
$14.95 ea. 
$12.95 ea. 
$12.95 ea. 


HEXMART SOFTWARE 
1048 Alpine N.W. 

Grand Rapids, Ml 49504 


Now Available : SUPERFILE - A data base management program. Totally flexible - You 
specify field si zes and printout formats. Sort on any field you choose! 
Requires 16K memory and a single disk drive. $19.95 on cassette. 

Write us if you would like more information. 


1? yv f OteE ONE" UAtr ffcICS I 

That s right, from now until January 5, 1983 if you buy one game at regular price you may 
buy a second game of equal or less value for half off the regular price. So now' is the 
perfect time for you to stock up on APF home computer games. 


THE GAMES 


FROGGER 

Stop! Don't put another quarter in a Frogger arcade machine. Now you can play it on 
your APF home computer. Just like the arcade game you have to get the frog across" the road. 
Three skill levels and high resolution graphics will constantly keep you challenged... $7.00 


ALLIEN DEFENDER 

First it was a great arcade game, then it became a great home video game, and now it's 
a great APF home computer game. You must move your space ship to either avoid or destroy 
the on coming alliens. Be careful -- they can fire back. A lot of the details from the 
original arcade game are there in this high resolution graphic game $8.00 


ALPINE SKIING 

Avoid those long lift lines and sore muscles with this fast action game. You have to 
move out of the way of the on coming trees. Like real skiing except that you have four 
chances to try again if you hit one. High resolution graphics and many sounds will provide 
hours of fun $7.00 


TURBO 

Dodge the on coming cars in your turbo charged race car. The road is long and the cars 
are fast, so be ready for almost anything. But don't worry — you have four chances to 'try 
again if you hit one. This colorful, high resolution graphic game is very challenging and 
will provide many hours of fun $7.00 


ASTEROIDS 

Another first for the APF home computer. You are flying in a tunnel with asteroids 
coming straight at you. You have to move or you will be destroyed. But that’s not all — 
you also have to avoid the walls. High speed action, high resolution graphics and many 
sounds will provide hours of entertainment $7.00 


SAILING 

Sail your boat between three sets of pylons in a race against time. The computer 
automatically keeps time and then displays it at the end of the game. Excellent high 
resolution graphics make this a fun game for all ages $5.00 


Send check or money order to: Eddie Bednar 

11804 Brookwood Rd. 
Austin, Tx. 78750 


LOOK, UP ON THE HILL!! IT’S A BUS, IT’S A WORM, NO IT’S 
CENT I PEED! ! ! CENT I PEED! ! ! CENT I PEED! ! ! CENTIPED! ! ! CENT I PEED! ! ! 


Your mushroom garden has been invaded by a giant centipeed and a 
pesky spider. Shoot the centipeed parts before they reach the bottom 
o-f the garden. Hit the stationary dragon-fly -for bonus points before 
he’s squished. Sounds easy, huh? Well it’s not! The centipeed breaks 
in two each time it’s shot, and some parts take more than one shot to 
be destroyed! Three skill levels in this popular arcade type game. 90'/. 
machine language for fast high resolution! For Christmas gifts! 

ONLY *12.95 (includes shippling costs) 

PLUS 


Low-Res graphics graphic paper. The APF screen is not made of squares, 
it’s made of rectangles. Because of this fact, normal graph paper does 
not work very well; but now your troubles are over! My graph paper has 
rectangles that are longer than they are wide, like the blocks on the 
APF, not squares. Each sheet contains six graphs, and each packet 
contains twenty sheets, and at *1.75 per packet, it’s a steal!! 
(includes shipping costs.) 

To order game or paper 
Send check or money order tos 
The Program Peddler 
c/o John Mechalas 
2830 Townway Road 
Danville, Illinois 61832 



“datacomp 

computer software 


SPELL BINDER ■ a spelling game for children grades 4-6. 

This three part spelling program teaches children how to spell fifty dif- 
ferent words we use frequently. All words are clearly dictated through 
the audio speaker and used in a sentence. Three tries are given to spell 
each word correctly. Tape automatically starts and stops after each word 
and sentence. Part three gives a final exam over all the words previously 
learned. Each of the three parts must be loaded separately. 

All three parts on one tape for 9K machines. Includes high - resolution 
animation, text modes, and instruction booklet. 0filv $15.50 

Safari in Africa - GAME - You are on a mission In Africa to capture a rare 
species of monkey. This animal is very dangerous and attacks without 
warning. You must live through many decisions that determine whether it 
captures you or you capture it! Instruction booklet included. (Low res- 
olution text for 9K machines) $5.50 

Both SPELL BINDER and SAFARI $17.00 (separate tapes) lb" 


Send all orders check or money order (U.S. f unds ) to: Russ Needham, 36723 
Stanton Point Rd. , Ingleslde, II., 60041 *Free Christmas program for any- 
one buying Spell binder and Safari. 


Sslj 


Want s^cdl Information 
Due to the cost of printing we must ask you again to limit your 
want ads to 10 lines. The cost o-f 25 cents pre line -for members 
and 75 cents for non-members is the same as is the limit of 32 
characters per line. Ads will be published in the order received, 
any leftovers will be held till the next issue. Deadline for ads 
is the 20th of the month !!!!!!!!!!!! Here we go again. The 
want ads are for small programs or hardware, they are not intended 
for commercial use. The professional type rates have gone down 
so don’t be afraid to ask again what they are. You can expect a 
pleasant surprise. 

We have another full mailing to 3,000 people coming up this year. 


ft*** ft* * ft* ft* ft* ft ************ ft* ****** ******* ************************ 
/Q/YA' M/9A/7 &Z? 

Each line can contain 32 characters including spaces. 


************************* **************************** *********** 
Lonesome? computers 


Check here if you do not want this information published!!! 


name= ftTeil us a little about yourself 

* 

addr= ft 

ft 

ft 

state 1 * ft 

4 

zip™ ft 

ft 

phone 53 ft 

ft 


ft**ftftft*ftft**ftft***ftftft*ftftftSftft*ft**ft******ftft*ft***ft******************* 


MOW DO YOU GET , ft free 


GftMEI'P'P 


si 9 n ^F> -Far- 19 S 4 before 

J ftlNlLJftR! V 1 1 9S4- ! ! J * " 

™LS HE 1 ' 6 ? TIME 0NLV m flRE OFFERING A "LUNAR LANDAR" GAME TD 

F W! flNA S“* HWE S ™ E »V US THROUGH THIS S, “d 
hRE WILLING TD GO FOR IT AGAIN 

T0 GE0 * SRftF '« «M> AU. vou HAVE TO DO IS 

THAT^S OUr'Sav T OF Sg,!S^llf5S’ ™ « FREE 

THANKS F^OR THE GOOD 'TIME:! 


SPRINGDALE" 
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